﻿Imports Stardust.Core

Public Class ImageList
    Inherits List(Of ImageObject)

    Public Overloads Sub Add(ByVal Item As ImageObject)
        MyBase.Add(Item)
    End Sub

    Public Shadows Function Item(ByVal Index As Integer) As ImageObject
        Return MyBase.Item(Index:=Index)
    End Function

    Public Function GetUriString(ByVal index As Integer) As String
        Dim Uri As Uri = MyBase.Item(index:=index).OriginalUri
        If Uri.IsFile Then
            Return Uri.LocalPath
        Else

        End If
    End Function

End Class
